home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…rary 6 (Reseller Edition)
/
Apple Ref. & Pres. Lib.v6.0.toast
/
pc
/
3-Presentations
/
Apple Demos
/
Training
/
Apple Scanner Training
/
Selling Home Card
/
card_4243.txt
< prev
next >
Wrap
Text File
|
1990-04-09
|
3KB
|
122 lines
-- card: 4243 from stack: in
-- bmap block id: 4488
-- flags: 4000
-- background id: 3681
-- name: Scanner Selling - Markets
----- HyperTalk script -----
on openCard
global showState
put empty into showState
set hilite of background button "Examples" to false
set hilite of background button "Market Needs" to false
end openCard
on closeCard
hide card field "Message Center"
end closeCard
-- part 42 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=53 top=137 right=158 bottom=181
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About This Stack
----- HyperTalk script -----
on mouseUp
visual effect scroll left
go to card "Introduction"
end mouseUp
-- part 55 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=222 top=273 right=304 bottom=385
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Message Center
-- part 56 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=451 top=3 right=42 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 1004 / 1004
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
play harpsichord a4
global search
answer "Type of Search?" with "Browse" or "Automatic" or "Cancel"
if it is "Browse" then
visual wipe up slowly
go to card "Glossary" of stack "Glossary"
end if
if it is "Automatic" then
ask "Find Word?"
put it into search
if search is empty then
exit mouseUp
else
visual wipe up slowly
put "find search" into message box
hide message
go to card "Glossary" of stack "Glossary"
find word search in field "Text"
if the result is "not found" then
answer "Word not found." with "OK"
exit mouseUp
else
show card field id 13
wait 4 seconds
hide card field id 13
end if
end if
end if
end mouseUp
-- part 57 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=402 top=3 right=42 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 1008 / 1008
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
doMenu "Print Card"
end mouseUp
-- part contents for card part 55
----- text -----
Please click on the market for a description.